LINCE -668S a 


CONOSCERE 
[RO] \.\0]13? 
DIRETTAMENTE 





In questa lezione vediamo l'uso di altri cinque comandi che 
dovranno essere usati in Modo diretto sul listato del 
programma. Con queste nuove istruzioni si potranno 
disabilitare o riattivare le istruzioni di grafica e suono 
dell'HELP; resettare il computer azzerandone la Memoria; 
rendere autorepeat l'intera tastiera; disattivare tutti i 
comandi presenti nell'HELP. 





disabilita le istruzioni per la grafica e il suono contenute 
nell'HELP; lasciando invece abilitati tutti i comandi diretti. 





serve, dopo l'uso dell'STD, perriattivare i comandi di grafica 
e suono contenuti nell'HELP. 





permette di resettare il Computer, cioè di azzerare la 
Memoria riportandola al valore iniziale dell'accensione 





rende autorepeat l'intera tastiera. 

Dovrà essere usata nel Modo: REPEAT T. 

Dove il parametro T, che può essere Z oppure 1, indica 
quali tasti dovranno essere autorepeat (ZI = nessun tasto; 
1= tuttiitasti). 

Se invece il parametro T viene omesso l'autorepeat 
funzionerà solo peri tasti dello spazio, dei cursori e dell'INST/ 
DEL. 


disattiva tutti i comandi dell'HELP. Per riabilitarli basterà 
scrivere SYS 750. 


NB: Ogni volta che si vorranno utilizzare le istruzioni 
occorrerà prima caricare il programma HELP allegato 
alla lezione 31. 


PROGRAMMIAMO INSIEME (CBM 64) 
ISTOGRANMI 2° PARTE 


389 
399 
699 
cla 
6289 
639 
649 
659 
659 
679 


gosub3390 
n=9:forr=itozinzsntyirnbinextr 

g0sub 1359 

print "S“5ReBl":;:3# 
bb=intmi+tfa/Q):cc=intimo 
fort=ito750O:next 

print 'SEceRREepREeE "pes": mi 
print"SEeel'apc(23-1en ‘str fbb))+1?3:bb 
print"aseei"spc (37 -len str$(co:)+135C0C 
print "'i90002 08285. Pr’ <" @-@<"@"©>--=" 


7 ul ti 


639 
Ia 
709 
Fia 
7209 
730 
749 
39 


fort=lito 1999: next 

forr=litaoz 

gsosub3299 

aqaE(r>snée le 0+b Er) 
qE=ofstnek cr tb Ere) 
ifa£r?="%"thenpr intinextrigoto7S9 
fori=itolentaE) 

primtmid$és(gf£,1,135 

fort=ltofinaxtt 

nexti:!printinezir 


print gl ” —  __————_————————————€ 


ifaaE="%"then8S19 
iiiia= aa pigot0920 





print 

ifbbs="4"then84g4@ 

print" id 3 aa ":b6# 

print "3EGCECECCECECECECCECCCaRERE RED DI 


"n 
C(COC=TrTrto er zo eee "yi È 


2959 print "'iBSSBREES»I |: = -alvua v=svalore m=menu 
l":igoto890 


3659 
79 
339 
339 
399 
319 
920 
339 
9359 
3658 
979 
289 
amma 
990 


print 'S5CCCCCCreCecErECCCEECeRRppaR EDI 


printspcr1l100?3” 
goto1469 

getzé 
ifz&$&="s"then979 
ifz&£="u"then9869 
ifz*&="m"then959 
goto899 

gir 

gotol790 

print "ef" 
printtab(70) "seg registrazione istogr 
da" 

dv=09:print "SECCCcecceeeee u Midisco o Mm 


Mastro"; 


1009 
1019 
1020 
10309 
1040 
1059 
1969 
10979 
10939 
1938 
1199 
1119 
1120 
1139 
1135 


print "eel' 

getdu£ 
ifdu$="d"'thenfi$=as$t",s,4"!dv=8 
ifdvu£="n"thenfis=af*:!duv=1 
ifdu=Sthen999 

openli,dW,l,fi$ 

print "SEtECccceeceek av ins "a$ 
ifdu<>8Stheni169 

g0sub34290 

ifel<>63theni160 

closel 

print"EF impiazzo “s/n3?" 
getz$:ifz#=""thenl129 
ifz*="s"thenfi&="®!"+fi%$ 
ifz£="s"thenprint "SECECCECCECECÌ 


"igoto 1959 

1199 ifz#$#="n"then6i9 

1159 gotolliz® 

1169 print#1,a£:r£:; 

1179 printB#i,misr&; 

1189 print#1i,bb:r&:; 

1199 print#i;cc:rét:; 

12009 printB#il,z:5r£*:; 

1219 printBi,msir 6; 

1229 forr=ltoz 

1239 print#1,a$r Dir E; 

1249 nextr 

1250 forr=ltoz 

12609 prinmntB#l,n$&ri:;r; 

1270 nextr 

1289 faorr=1toz 

1290 print#1,0r3;5r£; 

13099 nextr 

1319 printBl,aa$;ré; 

1329 print#1,bb®*:r: 

1339 closeli:ifec=ithencioset:ec=@ 

1349 gotoS18@ 

1350 print "=E5EEEl" 

13592 print "puoi inserire un commento “mass 
imo 3a" 

1379 print"ftraratteri?) da associare ai sim 
bott” 

1389 print "EYelle barre dell'istogrammma. " 
14909 print "FEE di cat sus Z 
"sh E 

1319 print "Gel" 
14202 input "Ei 
1939 input"® " =ecor 








1449 
1450 
3300 
3219 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3399 
4080 
4990 
4199 
4118 
",9-1 
4129 
4130 
4135 
=-1 
4140 
4150 
4170 
4189 
4130 
4208 
4210 
4220 
4230 
4240 
4250 


ifaa€f=""thenaat="%"ibbs$= "x" 

return 

forr=itoz 

iflr>=lthens&="#" 

ifl(r>=sthense="@% Jd' 

fa=momitf=fa-28 

tir 3=yvtr>i-mi 

forx=litot‘r)stepf 

bErI=5s +6 £r) 

ifuir>)=09thenb£$ce3="" 

nextxinextr 

return 

ifnE="*"then4129 
iflentnf3)<(=9then4ill0 

goto3839 
iflenfnE>)Ithenné&=nftleft£:(" 

enn$é)) 

nesri>i=snf:return 

ee=fifori=ltolen in$):zf=midfin$s,1,1) 
ifc(z$< 0 "d;be (2; "9" ):)a(7£<>*.">)thenae 


nexti!tifee=-ithern94929 

ri=val (n) 

yu r>i=snireturnt 

if nE<>"1"}x(n£<0>"2">)then3930 
1r)=val (n$):return 
ifdwv=ithen4279 
ifec=S&thenec=1i:!open2,8,15 
input#S,e1,e2#,e3,e4 
ifei=S2thenprint"Eele2t:return 
ife1=S3thenprint"Eeel'e2fs:return 
ifeic>Sthenpr int "ii@e@e isk errori: "iel, 


e2$,e3,eg:end 


4268 
4278 
3239 
34299 
4390 
4319 
GI320 


return 

ifst<0>@then4290 

return 
ifst=6S2thenprinte2$:ireturn 
ifst<>64then4329 

returnì 

print"tape error".,st:end 
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